home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
ipcheck
/
form1.frm
next >
Wrap
Text File
|
1998-11-02
|
4KB
|
122 lines
VERSION 5.00
Object = "{D70559CC-7283-11D2-A460-008029E79FA1}#1.0#0"; "IPCHECK.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 2325
ClientLeft = 4560
ClientTop = 4860
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 2325
ScaleWidth = 4680
Begin IP_Check.IPCheck IPCheck1
Left = 3960
Top = 240
_ExtentX = 847
_ExtentY = 847
End
Begin VB.Label Label10
Caption = " Total Interfaces Found :"
Height = 255
Left = 120
TabIndex = 9
Top = 1680
Width = 1815
End
Begin VB.Label Label9
Caption = "IP Address (Device 4) :"
Height = 255
Left = 240
TabIndex = 8
Top = 1320
Width = 1695
End
Begin VB.Label Label8
Caption = "IP Address (Device 3) :"
Height = 255
Left = 240
TabIndex = 7
Top = 960
Width = 1695
End
Begin VB.Label Label4
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 255
Left = 2040
TabIndex = 6
Top = 1320
Width = 1575
End
Begin VB.Label Label3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 255
Left = 2040
TabIndex = 5
Top = 960
Width = 1575
End
Begin VB.Label Label6
Caption = "IP Address (Device 2) :"
Height = 255
Left = 240
TabIndex = 4
Top = 600
Width = 1695
End
Begin VB.Label Label5
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 255
Left = 2040
TabIndex = 3
Top = 1680
Width = 375
End
Begin VB.Label Label2
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 255
Left = 2040
TabIndex = 2
Top = 600
Width = 1575
End
Begin VB.Label Label5a
Caption = "IP Address (Device 1) :"
Height = 255
Left = 240
TabIndex = 1
Top = 240
Width = 1695
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 255
Left = 2040
TabIndex = 0
Top = 240
Width = 1575
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
' Label1.Caption = IPCheck1.IP(IPCheck1.TotalInterfaces)
Label1.Caption = IPCheck1.IP(1)
Label2.Caption = IPCheck1.IP(2)
Label3.Caption = IPCheck1.IP(3)
Label4.Caption = IPCheck1.IP(4)
Label5.Caption = IPCheck1.TotalInterfaces
End Sub